1000 REM *----------------------------*
1010 REM *   WW (WILLIES WEDGE)       *
1020 REM *   INSTRUCTIONS             *
1030 REM *   BY BUD RASMUSSEN         *
1040 REM *----------------------------*
1050 POKE53280,5:POKE53281,5:POKE646,7
1060 PS=0
1070 PRINT"[147]"
1080 PRINT" *------------------------------------*"
1090 PRINT" * 'WW' ( WILLIE'S WEDGE )            *"
1100 PRINT" *------------------------------------*"
1110 PRINT" FOLLOWING THIS FOREWORD YOU WILL"
1120 PRINT" FIND A LIST OF SHORTHAND DOS"
1130 PRINT" COMMANDS THAT ARE POSSIBLE IF YOU"
1140 PRINT" LOAD AND RUN 'WW'.
1150 [153]
1160 [153]" 'WW' IS A VERSION OF 'C-64 WEDGE'"
1170 [153]" AND 'DOS 5.1' MERGED INTO ONE PROGRAM"
1180 [153]" BY WILLIE BROWN, WHICH MAKES IT"
1190 [153]" POSSIBLE TO LOAD/RUN/SAVE IT, AS IF"
1200 [153]" IT WERE A BASIC PROGRAM."
1210 [153]
1220 [153]" YOU WILL FIND A COPY OF 'WW'
1230 PRINT" ON THIS DISK.
1240 [153]" *------------------------------------*"
1250 :
1260 [153]
1270 [139] PS[178]1 [137]1310
1280 [153]" * PRESS ANY KEY TO CONTINUE."
1290 A$[178]"":[161] A$:[139] A$ [178] "" [137] 1290
1300 [153]"LOAD"
1310 [153]" *------------------------------------*"
1320 [153]"  FILE                 COMMAND"
1330 [153]"  COMMAND              RESULT "
1340 [153]" *------------------   ---------------*"
1350 [153]
1360 [153]"  @C:NEWFILE=OLDFILE   COPY A FILE ON"
1370 [153]"                       THE SAME DISK"
1380 [153]
1390 [153]"  @R:NEWNAME=OLDNAME   RENAME A FILE"
1400 [153]
1410 [153]"  @S:FILENAME          SCRATCH A FILE"
1420 [153]
1430 [153]" *------------------------------------*"
1440 :
1450 [153]
1460 [139] PS[178]1 [137] 1500
1470 [153]" * PRESS ANY KEY TO CONTINUE."
1480 A$ [178] "": [161] A$: [139] A$ [178] "" [137] 1480
1490 [153]"LOAD"
1500 [153]" *------------------------------------*"
1510 [153]"  DISK                 COMMAND"
1520 [153]"  COMMAND              RESULT "
1530 [153]" *------------------   ---------------*"
1540 [153]
1550 [153]"  @                    DISPLAY DISK"
1560 [153]"                       STATUS"
1570 [153]
1580 [153]"  @$                   LIST CATALOG"
1590 [153]
1600 [153]"  @I                   INITIALIZE/"
1610 [153]"                       RESET THE DRIVE"
1620 [153]
1630 [153]"  @N:DISKNAME,ID       NEW/FORMAT A "
1640 [153]"                       NEW DISK"
1650 [153]
1660 [153]"  @UJ                  RESET DOS"
1670 [153]
1680 [153]"  @V                   VALIDATE/"
1690 [153]"                       COLLECT SPACE"
1700 [153]" *------------------------------------*"
1710 :
1720 [153]
1730 [139] PS [178] 1 [137] 1770
1740 [153]" * PRESS ANY KEY TO CONTINUE."
1750 A$ [178] "": [161] A$: [139] A$ [178] "" [137] 1750
1760 [153]"LOAD"
1770 [153]" *------------------------------------*"
1780 [153]"  DRIVE                COMMAND"
1790 [153]"  COMMAND              RESULT "
1800 [153]" *------------------   ---------------*"
1810 [153]
1820 [153]"  @#N                  SWITCH DRIVE"
1830 [153]"                       REFERENCE"
1840 [153]
1850 [153]"  FOR EXAMPLE:
1860 PRINT
1870 PRINT
1880 PRINT"  @#9                  SWITCH TO DRIVE"
1890 PRINT"                       9 FOR ALL"
1900 PRINT"                       COMMANDS"
1910 PRINT
1920 PRINT
1930 PRINT
1940 PRINT"  @#8                  SWITCH TO DRIVE"
1950 PRINT"                       8 FOR ALL"
1960 PRINT"                       COMMANDS"
1970 PRINT" *------------------------------------*"
1980 PRINT
1990 IF PS = 1 GOTO 2030
2000 PRINT" * PRESS ANY KEY TO CONTINUE."
2010 A$ = "": GET A$: IF A$ = "" GOTO 2010
2020 PRINT"[147]"
2030 PRINT" *------------------------------------*"
2040 PRINT"  PROGRAM              COMMAND"
2050 PRINT"  COMMAND              RESULT "
2060 PRINT" *------------------   ---------------*"
2070 PRINT
2080 PRINT"  /PGMNAME             LOAD BASIC"
2090 PRINT"                       PROGRAM"
2100 PRINT
2110 PRINT"  _PGMNAME             SAVE BASIC"
2120 PRINT"                       PROGRAM"
2130 PRINT
2140 PRINT"  ^PGMNAME             LOAD/RUN BASIC"
2150 PRINT"                       PROGRAM"
2160 PRINT
2170 PRINT"  %PGMNAME             LOAD ML"
2180 PRINT"                       PROGRAM"
2190 PRINT
2200 PRINT
2210 PRINT" *------------------------------------*"
2220 PRINT
2230 IF PS = 1 GOTO 2270
2240 PRINT" * PRESS ANY KEY TO CONTINUE."
2250 A$ = "": GET A$: IF A$ = "" GOTO 2250
2260 PRINT"[147]"
2270 PRINT" *------------------------------------*"
2280 PRINT"  WW                   COMMAND"
2290 PRINT"  COMMAND              RESULT "
2300 PRINT" *------------------   ---------------*"
2310 PRINT
2320 PRINT"  @Q                   QUIT/ REMOVE WW"
2330 PRINT
2340 PRINT" *------------------------------------*"
2350 PRINT"  NOTES:
2360 [153]
2370 [153]"   ALL COMMANDS MUST BE FOLLOWED BY"
2380 [153]"   RETURN KEY.
2390 PRINT
2400 PRINT"   OPTIONALLY, THE GREATER THAN SIGN"
2410 PRINT"   '>' MAY BE USED TO PREFACE ALL"
2420 PRINT"   COMMANDS."
2430 PRINT
2440 PRINT" *------------------------------------*"
2450 PRINT" *     THAT IS ALL! "
2460 PRINT" *     PRESS RETURN TO VIEW AGAIN!"
2470 PRINT" *     PRESS F1 KEY TO PRINT!     "
2480 PRINT" *     PRESS F3 KEY TO STOP!     "
2490 PRINT" *------------------------------------*"
2500 IF PS = 1 THEN PRINT:CLOSE 4
2510 A$="": GET A$: IF A$ = ""GOTO 2510
2520 IF A$ = CHR$(133) GOTO 2560
2530 IF A$ = CHR$(134) THEN END
2540 PS = 0
2550 GOTO 1300
2560 OPEN 4,4 : CMD 4 : PS = 1
2570 GOTO 1310